home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / showkeys.proc < prev    next >
Text File  |  2007-02-28  |  767b  |  36 lines
  1. 9000 //
  2. 9010 PROC SHOWKEYS CLOSED
  3. 9020 Z:=PEEK(50336)
  4. 9030 POKE 50336,0
  5. 9040 DIM Q$ OF 1
  6. 9050 Q$:=CHR$(34)
  7. 9060 FOR FKEY:=0 TO 8 DO
  8. 9070 ADDR:=KEYADDRESS(FKEY)
  9. 9080 PRINT "DEFKEY(",FKEY,",",
  10. 9090 LETTER:=FALSE
  11. 9100 FOR CHAR:=0 TO 9 DO
  12. 9110 BYTE:=PEEK(CHAR+ADDR)
  13. 9120 IF BYTE=0 THEN
  14. 9130 IF CHAR=0 THEN
  15. 9140 PRINT Q$,
  16. 9150 LETTER:=TRUE
  17. 9160 ENDIF 
  18. 9170 ELIF BYTE=13 THEN
  19. 9180 IF LETTER THEN PRINT Q$,
  20. 9190 IF CHAR>0 THEN PRINT "+",
  21. 9200 PRINT "CHR$(13)",
  22. 9210 LETTER:=FALSE
  23. 9220 ELSE 
  24. 9230 IF NOT LETTER AND CHAR>0 THEN PRINT "+",
  25. 9240 IF NOT LETTER THEN PRINT Q$,
  26. 9250 PRINT CHR$(BYTE),
  27. 9260 IF BYTE=34 THEN PRINT Q$,
  28. 9270 LETTER:=TRUE
  29. 9280 ENDIF 
  30. 9290 ENDFOR CHAR
  31. 9300 IF LETTER THEN PRINT Q$,
  32. 9310 PRINT ")"
  33. 9320 ENDFOR FKEY
  34. 9330 POKE 50336,Z
  35. 9340 ENDPROC SHOWKEYS
  36.